unit Start;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, WoT_Base, Main;

type
  TStartForm = class(TForm)
    Image1: TImage;
    BT_RusServer: TSpeedButton;
    BT_EuroServer: TSpeedButton;
    BT_UsaServer: TSpeedButton;
    Label1: TLabel;

    procedure BT_RusServerClick(Sender: TObject);

  end;

var
  StartForm: TStartForm;

implementation

{$R *.dfm}

 procedure TStartForm.BT_RusServerClick(Sender: TObject);
  begin
   // RUS .....................................................................
   if Sender=BT_RusServer then
    begin
     ServerFN := GameServers[0];
     MainForm.CB_CurrentServer.ItemIndex := 1;
    end else
   // EURO ....................................................................
   if Sender=BT_EuroServer then
    begin
     ServerFN := GameServers[1];
     MainForm.CB_CurrentServer.ItemIndex := 2;
    end else
   // USA .....................................................................
   if Sender=BT_UsaServer then
    begin
     ServerFN := GameServers[2];
     MainForm.CB_CurrentServer.ItemIndex := 3;
    end;
   // load configuration
   MainForm.LoadServerConfig(MainForm.ServerFile);
   // go to main window
   Close;
  end;

end.
